source('common.R')
## 
## Attaching package: 'lubridate'
## The following object is masked from 'package:base':
## 
##     date
## Loading required package: lattice
predict_col <- 'price_doc'
load('model3_overall_data_fe.Rdata')

# transform predictions
just_col(overall_data_fe, predict_col) <- log1p(just_col(overall_data_fe, predict_col))

Y aware PCA, revisited

Consider playing around with Y-Aware PCA again, this time without the is-na columns. Or not.

pipeline <- c(yaware_pca=function(train_data) {
    isna_cols <- grep('_isna$', names(train_data), value=TRUE)
    
    pca_fn <- yaware_pca_factory(sans_cols(train_data, isna_cols), 0.999)
    function(data) {
        isna_data <- just_cols(data, isna_cols)
        print(dim(isna_data))
        retval <- pca_fn(sans_cols(data, isna_cols))
        return(list(retval=retval, isna_data=isna_data))
        print(class(retval))
        print(names(retval))
        print(dim(retval))
        retval <- cbind(retval, isna_data)
        return (retval)
    }
})

skipcols <- c('id', 'disposition')

# Don't do this unless playing around.
if (FALSE) {
    overall_data_pca <- transform_data(pipeline,
               subset(overall_data_fe, disposition=='train'),
               subset(overall_data_fe, disposition!='skip'),
               verbose=TRUE
               )[[2]]
}

Look at Smoothed predictors, lag

Load the maro data and make some “smoothed” columns by exponential filtering (simplest smoother without foreknowledge).

set.seed(20170630)
load('macro_preproc2.Rdata')
just_buyer <- subset(overall_data_fe, product_type == 'OwnerOccupier')
just_buyer_nonmacro <- sans_cols(just_buyer, names(macro_preproc2))

ctrl <- caret::trainControl(method='repeatedcv',
             number=5,
             allowParallel=TRUE)
grid <- expand.grid(
    nrounds=750,
    eta=c(0.03),
    gamma=1,
    max_depth=c(8),
    subsample=c(0.7),
    colsample_bytree=c(0.6),
    min_child_weight=1
)

skipcols <- c('id', 'disposition')
x_static <- model.matrix(~., data=sans_cols(just_disposition(just_buyer_nonmacro, 'train'), c(predict_col, skipcols)))
y_static <- just_col(just_disposition(just_buyer_nonmacro, 'train'), predict_col)
y_date_id <- just_cols(just_disposition(just_buyer, 'train'), c(predict_col, 'id', 'timestamp'))
xgb_model_static <- caret::train(
    x=x_static,
    y=y_static,
    method='xgbTree',
    metric="RMSE",
    trControl=ctrl,
    tuneGrid=grid)
## Loading required package: xgboost
## Loading required package: plyr
## 
## Attaching package: 'plyr'
## The following object is masked from 'package:lubridate':
## 
##     here
y_pred <- predict(xgb_model_static, x_static)
y_date_id$y_error <- y_pred - y_static
save(x_static, y_static, xgb_model_static, y_date_id, file='Lag_Smooth_static.Rdata')


library(pracma)
## 
## Attaching package: 'pracma'
## The following object is masked from 'package:car':
## 
##     logit
# function to smooth an input column and lag it various amounts.
sl <- function(macro_data, colname, s=30, l=0:3, date_colname='timestamp')
{
    stopifnot(all(order(just_col(macro_data, date_colname)) == 1:nrow(macro_data)))
    retval <- data.frame(just_cols(macro_data, date_colname))
    names(retval) <- date_colname
    
    for (si in s) {
        if (si > 1) {
            ma <- pracma::movavg(just_col(macro_data, colname), si, 's')
        } else {
            ma <- just_col(macro_data, colname)
        }
        ma_l <- length(ma)
        for (li in l) {
            new_colname <- sprintf('%s_s%d_l%d', colname, si, li)
            just_col(retval, new_colname) <- c(rep(ma[1], li), ma[1:(ma_l-li)])
        }
    }
    return (retval)
}


make_cors <- function(sl_data)
{
    
    sl_cols <- str_match(names(sl_data), '^(.*)_s([0-9]+)_l([0-9]+)$')
    sl_cols <- sl_cols[!is.na(sl_cols[,1]),]

    retval <- data.frame(
        colname=as.character(sl_cols[,2]),
        smooth=as.numeric(sl_cols[,3]),
        lag=as.numeric(sl_cols[,4]),
        m=as.vector(sapply(
            just_cols(sl_data, as.character(sl_cols[,1])),
            function(x) {
                cor(sl_data$y_error, x-mean(x))
            }
        )))
    return (retval)
}

smooths <- c(0,30,60,90,180,360)
lags <- 0:800

# Examine a handful of indicators.
x_oil_urals <- merge(y_date_id, sl(macro_preproc2, 'oil_urals', s=smooths, l=lags), by='timestamp')
cor_oil_urals <- make_cors(x_oil_urals)
ggplot(aes(x=lag, y=m, color=factor(smooth)), data=subset(cor_oil_urals, smooth/2+lag < 720))+geom_line()+xlab('Lag (days)')+ylab('Correlation')+ggtitle('Correlation of oil_urals for various smooths, lags')

x_rts <- merge(y_date_id, sl(macro_preproc2, 'rts', s=smooths, l=lags), by='timestamp')
cor_rts <- make_cors(x_rts)
ggplot(aes(x=lag, y=m, color=factor(smooth)), data=subset(cor_rts, smooth/2+lag < 720))+geom_line()+xlab('Lag (days)')+ylab('Correlation')+ggtitle('Correlation of rts for various smooths, lags')

x_micex <- merge(y_date_id, sl(macro_preproc2, 'micex', s=smooths, l=lags), by='timestamp')
cor_micex <- make_cors(x_micex)
ggplot(aes(x=lag, y=m, color=factor(smooth)), data=subset(cor_micex, smooth/2+lag < 720))+geom_line()+xlab('Lag (days)')+ylab('Correlation')+ggtitle('Correlation of micex for various smooths, lags')

x_rent_price_2room_eco <- merge(y_date_id, sl(macro_preproc2, 'rent_price_2room_eco', s=smooths, l=lags), by='timestamp')
cor_rent_price_2room_eco <- make_cors(x_rent_price_2room_eco)
ggplot(aes(x=lag, y=m, color=factor(smooth)), data=subset(cor_rent_price_2room_eco, smooth/2+lag < 720))+geom_line()+xlab('Lag (days)')+ylab('Correlation')+ggtitle('Correlation of rent_price_2room_eco for various smooths, lags')

x_rent_price_2room_bus <- merge(y_date_id, sl(macro_preproc2, 'rent_price_2room_bus', s=smooths, l=lags), by='timestamp')
cor_rent_price_2room_bus <- make_cors(x_rent_price_2room_bus)
ggplot(aes(x=lag, y=m, color=factor(smooth)), data=subset(cor_rent_price_2room_bus, smooth/2+lag < 720))+geom_line()+xlab('Lag (days)')+ylab('Correlation')+ggtitle('Correlation of rent_price_2room_bus for various smooths, lags')

x_salary <- merge(y_date_id, sl(macro_preproc2, 'salary', s=smooths, l=lags), by='timestamp')
cor_salary <- make_cors(x_salary)
ggplot(aes(x=lag, y=m, color=factor(smooth)), data=subset(cor_salary, smooth/2+lag < 720))+geom_line()+xlab('Lag (days)')+ylab('Correlation')+ggtitle('Correlation of salary for various smooths, lags')

plot(x_rent_price_2room_eco$rent_price_2room_eco_s0_l0)

plot(x_rent_price_2room_eco$rent_price_2room_eco_s180_l400)

plot(x_rent_price_2room_eco$price_doc)

qplot(y_pred, y_error, data=y_date_id, alpha=I(0.1))

qplot(rent_price_2room_eco_s0_l0, y_error, data=x_rent_price_2room_eco)

qplot(rent_price_2room_eco_s180_l0, y_error, data=x_rent_price_2room_eco)

Examine en masse

make_all_cors_from_data <- function(y_date_id, macro_data, smooths, lags, merge_col='timestamp')
{
    retval <- NULL
    for (col in names(macro_data)) {
        if (is.numeric(just_col(macro_data, col))) {
            x <- merge(y_date_id, sl(macro_data, colname=col, s=smooths, l=lags), by=merge_col)
            retval <- rbind(retval, make_cors(x))
        }
    }
    return (retval)
}

all_cors <- make_all_cors_from_data(y_date_id, macro_preproc2, smooths, lags)
## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero

## Warning in cor(sl_data$y_error, x - mean(x)): the standard deviation is
## zero
make_plots_from_cors <- function(cors)
{
    colnames <- levels(cors$colname)
    for (col in colnames) {
        p <- ggplot(aes(x=lag, y=m, color=factor(smooth)), data=subset(cors, colname==col & smooth/2+lag <720))+geom_line()+ggtitle(sprintf('y_error correlations of %s for smooths at lags', col))+ylab('correlation')+xlab('lag (days)')
        print(p)
    }
}

make_plots_from_cors(all_cors)

## Warning: Removed 395 rows containing missing values (geom_path).

## Warning: Removed 395 rows containing missing values (geom_path).

Find best correlations for each column

Look for the best correlations. Exclude smoothing less than 30 days as more likely to be noise than signal.

all_cors_sorted <- all_cors[order(abs(all_cors$m),decreasing=TRUE),]
best_per_colname <- all_cors_sorted[sapply(levels(all_cors_sorted$colname), function(col) { i <- min(which(with(all_cors_sorted, colname==col & smooth >= 30 & smooth/2+lag < 360)))}),]

sl_from_df <- function(macro_data, df, date_colname='timestamp')
{
    stopifnot(all(order(just_col(macro_data, date_colname)) == 1:nrow(macro_data)))
    retval <- data.frame(just_cols(macro_data, date_colname))
    names(retval) <- date_colname

    colnames <- as.character(just_col(df, 'colname'))
    smooths <- just_col(df, 'smooth')
    lags <- just_col(df, 'lag')
    for (i in 1:nrow(df)) {
        colname <- colnames[i]
        si <- smooths[i]
        li <- lags[i]
        if (si > 1) {
            ma <- pracma::movavg(just_col(macro_data, colname), si, 's')
        } else {
            ma <- just_col(macro_data, colname)
        }
        ma_l <- length(ma)
        new_colname <- sprintf('%s_s%d_l%d', colname, si, li)
        just_col(retval, new_colname) <- c(rep(ma[1], li), ma[1:(ma_l-li)])

    }
    return (retval)
}


macro_best_sl <- merge(y_date_id, sl_from_df(macro_preproc2, best_per_colname), by='timestamp')
save(macro_best_sl, y_date_id, y_pred, file='Lag_Smooth_macro_best_sl.Rdata')

Fit linear model or two using lagged coefficients

data_dynamic <- sans_cols(macro_best_sl, c(predict_col, 'id'))
m_dynamic <- lm(y_error ~ ., data=data_dynamic)
print(summary(m_dynamic))
## 
## Call:
## lm(formula = y_error ~ ., data = data_dynamic)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.87706 -0.05985  0.00750  0.06191  0.89048 
## 
## Coefficients: (20 not defined because of singularities)
##                                                      Estimate Std. Error
## (Intercept)                                        -4.446e+13  6.491e+13
## timestamp                                          -4.267e-07  3.056e-07
## oil_urals_s30_l0                                    1.392e-02  2.043e-02
## gdp_quart_s180_l8                                   2.722e-04  2.672e-04
## gdp_quart_growth_s360_l58                           1.398e+00  1.100e+00
## cpi_s30_l266                                       -7.903e-02  4.537e-02
## ppi_s180_l77                                       -4.940e-02  3.896e-02
## gdp_deflator_s180_l247                             -4.673e+00  3.083e+00
## balance_trade_s360_l115                             1.623e-01  3.289e-01
## balance_trade_growth_s360_l0                       -1.490e-01  1.551e-01
## usdrub_s180_l191                                   -2.127e-01  2.251e-01
## eurrub_s360_l0                                      2.431e-01  1.990e-01
## brent_s30_l0                                        5.189e-03  1.130e-02
## net_capital_export_s360_l120                       -1.507e-01  4.238e+00
## gdp_annual_s180_l247                                5.633e-03  3.480e-03
## gdp_annual_growth_s90_l0                            8.218e+12  4.738e+13
## average_provision_of_build_contract_s360_l179      -1.300e+01  1.379e+01
## average_provision_of_build_contract_moscow_s360_l0 -3.515e+00  4.694e+00
## rts_s180_l188                                      -3.239e-03  3.806e-03
## micex_s180_l0                                      -5.560e-03  3.779e-03
## micex_rgbi_tr_s60_l0                               -1.341e-02  3.092e-02
## micex_cbi_tr_s30_l342                              -1.805e-03  9.938e-03
## deposits_value_s360_l0                              5.550e-06  4.477e-06
## deposits_growth_s180_l150                           2.337e+01  2.038e+01
## deposits_rate_s30_l273                              1.975e-01  4.597e-01
## mortgage_growth_s360_l179                          -7.640e+00  1.200e+01
## mortgage_rate_s180_l132                             1.023e+00  1.546e+00
## grp_s180_l269                                      -1.830e+09  1.912e+09
## grp_growth_s180_l40                                -3.562e+01  2.820e+02
## income_per_cap_s360_l179                            8.493e-05  7.731e-05
## real_dispos_income_per_cap_growth_s360_l0          -1.135e+00  8.013e+01
## salary_s180_l269                                    3.341e+08  3.274e+08
## salary_growth_s90_l0                               -9.988e+12  3.533e+13
## fixed_basket_s30_l284                              -4.915e-04  4.751e-04
## retail_trade_turnover_s180_l269                            NA         NA
## retail_trade_turnover_per_cap_s180_l269                    NA         NA
## retail_trade_turnover_growth_s30_l0                 3.643e-01  3.940e-01
## labor_force_s360_l7                                 7.400e-02  6.232e-02
## unemployment_s360_l179                              2.862e+02  3.472e+02
## employment_s360_l0                                  2.278e+02  5.830e+02
## invest_fixed_capital_per_cap_s180_l260              3.076e-03  2.598e-03
## invest_fixed_assets_s180_l260                      -2.360e-01  1.993e-01
## profitable_enterpr_share_s180_l269                         NA         NA
## unprofitable_enterpr_share_s180_l269                       NA         NA
## share_own_revenues_s360_l105                        1.167e+03  1.677e+03
## overdue_wages_per_cap_s180_l41                      4.353e-05  2.192e-04
## fin_res_per_cap_s180_l269                                  NA         NA
## marriages_per_1000_cap_s180_l269                           NA         NA
## divorce_rate_s180_l35                              -1.542e+00  1.978e+01
## construction_value_s180_l269                               NA         NA
## invest_fixed_assets_phys_s360_l105                  1.218e+00  1.788e+00
## pop_natural_increase_s360_l179                     -2.147e+01  1.620e+01
## pop_migration_s360_l26                             -5.520e+00  7.442e+00
## pop_total_inc_s360_l21                              2.960e+00  6.447e+00
## childbirth_s30_l0                                   3.103e+01  3.321e+01
## mortality_s90_l0                                           NA         NA
## housing_fund_sqm_s180_l245                          2.137e+00  5.078e+00
## lodging_sqm_per_cap_s180_l269                              NA         NA
## sewerage_share_s360_l27                            -1.604e+02  2.139e+02
## gas_share_s180_l247                                        NA         NA
## electric_stove_share_s180_l269                      1.060e+12  1.243e+12
## average_life_exp_s180_l247                                 NA         NA
## infant_mortarity_per_1000_cap_s180_l269                    NA         NA
## perinatal_mort_per_1000_cap_s180_l269                      NA         NA
## incidence_population_s180_l269                      4.037e+10  5.818e+10
## rent_price_4.room_bus_s180_l125                    -2.031e-02  1.086e-02
## rent_price_3room_bus_s180_l0                        1.197e-01  6.574e-02
## rent_price_2room_bus_s360_l179                      1.293e-01  1.719e-01
## rent_price_1room_bus_s180_l98                       2.816e-02  6.831e-02
## rent_price_3room_eco_s360_l179                      3.221e-01  5.180e-01
## rent_price_2room_eco_s360_l62                      -1.754e+00  1.356e+00
## rent_price_1room_eco_s360_l123                     -4.403e+00  2.104e+00
## load_of_teachers_preschool_per_teacher_s360_l149   -2.704e-01  6.071e-01
## child_on_acc_pre_school_s360_l6                    -5.600e-04  7.123e-04
## load_of_teachers_school_per_teacher_s90_l0                 NA         NA
## students_state_oneshift_s360_l20                   -4.870e-01  1.289e+00
## provision_doctors_s360_l44                         -7.855e-03  4.180e-01
## provision_nurse_s90_l0                                     NA         NA
## load_on_doctors_s90_l0                             -3.009e+08  1.894e+09
## power_clinics_s180_l269                                    NA         NA
## hospital_beds_available_per_cap_s180_l269                  NA         NA
## hospital_bed_occupancy_per_year_s180_l269          -6.940e+09  1.660e+11
## turnover_catering_per_cap_s180_l269                        NA         NA
## theaters_viewers_per_1000_cap_s360_l156             2.674e-01  3.758e-01
## seats_theather_rfmin_per_100000_cap_s90_l0                 NA         NA
## museum_visitis_per_100_cap_s360_l158                9.676e-01  1.594e+00
## bandwidth_sports_s180_l269                                 NA         NA
## population_reg_sports_share_s180_l244              -1.257e+00  1.989e+00
## students_reg_sports_share_s360_l158                -1.584e+01  2.461e+01
## apartment_build_s360_l168                           5.787e-04  6.087e-04
## apartment_fund_sqm_s90_l0                          -1.418e+08  1.878e+08
## mortgage_value_s360_l59                            -8.659e-03  1.648e-02
## mortgage_value_montonic_s30_l70                    -5.673e-04  1.451e-02
##                                                    t value Pr(>|t|)  
## (Intercept)                                         -0.685   0.4935  
## timestamp                                           -1.396   0.1628  
## oil_urals_s30_l0                                     0.681   0.4956  
## gdp_quart_s180_l8                                    1.018   0.3086  
## gdp_quart_growth_s360_l58                            1.272   0.2036  
## cpi_s30_l266                                        -1.742   0.0817 .
## ppi_s180_l77                                        -1.268   0.2049  
## gdp_deflator_s180_l247                              -1.516   0.1297  
## balance_trade_s360_l115                              0.493   0.6218  
## balance_trade_growth_s360_l0                        -0.961   0.3366  
## usdrub_s180_l191                                    -0.945   0.3448  
## eurrub_s360_l0                                       1.222   0.2220  
## brent_s30_l0                                         0.459   0.6462  
## net_capital_export_s360_l120                        -0.036   0.9716  
## gdp_annual_s180_l247                                 1.619   0.1057  
## gdp_annual_growth_s90_l0                             0.173   0.8623  
## average_provision_of_build_contract_s360_l179       -0.942   0.3461  
## average_provision_of_build_contract_moscow_s360_l0  -0.749   0.4540  
## rts_s180_l188                                       -0.851   0.3948  
## micex_s180_l0                                       -1.471   0.1413  
## micex_rgbi_tr_s60_l0                                -0.434   0.6645  
## micex_cbi_tr_s30_l342                               -0.182   0.8559  
## deposits_value_s360_l0                               1.240   0.2152  
## deposits_growth_s180_l150                            1.147   0.2514  
## deposits_rate_s30_l273                               0.430   0.6675  
## mortgage_growth_s360_l179                           -0.637   0.5243  
## mortgage_rate_s180_l132                              0.662   0.5081  
## grp_s180_l269                                       -0.957   0.3387  
## grp_growth_s180_l40                                 -0.126   0.8995  
## income_per_cap_s360_l179                             1.099   0.2721  
## real_dispos_income_per_cap_growth_s360_l0           -0.014   0.9887  
## salary_s180_l269                                     1.021   0.3076  
## salary_growth_s90_l0                                -0.283   0.7774  
## fixed_basket_s30_l284                               -1.035   0.3010  
## retail_trade_turnover_s180_l269                         NA       NA  
## retail_trade_turnover_per_cap_s180_l269                 NA       NA  
## retail_trade_turnover_growth_s30_l0                  0.925   0.3552  
## labor_force_s360_l7                                  1.187   0.2352  
## unemployment_s360_l179                               0.824   0.4099  
## employment_s360_l0                                   0.391   0.6960  
## invest_fixed_capital_per_cap_s180_l260               1.184   0.2365  
## invest_fixed_assets_s180_l260                       -1.185   0.2363  
## profitable_enterpr_share_s180_l269                      NA       NA  
## unprofitable_enterpr_share_s180_l269                    NA       NA  
## share_own_revenues_s360_l105                         0.696   0.4867  
## overdue_wages_per_cap_s180_l41                       0.199   0.8426  
## fin_res_per_cap_s180_l269                               NA       NA  
## marriages_per_1000_cap_s180_l269                        NA       NA  
## divorce_rate_s180_l35                               -0.078   0.9379  
## construction_value_s180_l269                            NA       NA  
## invest_fixed_assets_phys_s360_l105                   0.681   0.4957  
## pop_natural_increase_s360_l179                      -1.325   0.1853  
## pop_migration_s360_l26                              -0.742   0.4583  
## pop_total_inc_s360_l21                               0.459   0.6462  
## childbirth_s30_l0                                    0.934   0.3503  
## mortality_s90_l0                                        NA       NA  
## housing_fund_sqm_s180_l245                           0.421   0.6739  
## lodging_sqm_per_cap_s180_l269                           NA       NA  
## sewerage_share_s360_l27                             -0.750   0.4535  
## gas_share_s180_l247                                     NA       NA  
## electric_stove_share_s180_l269                       0.852   0.3942  
## average_life_exp_s180_l247                              NA       NA  
## infant_mortarity_per_1000_cap_s180_l269                 NA       NA  
## perinatal_mort_per_1000_cap_s180_l269                   NA       NA  
## incidence_population_s180_l269                       0.694   0.4878  
## rent_price_4.room_bus_s180_l125                     -1.870   0.0616 .
## rent_price_3room_bus_s180_l0                         1.821   0.0687 .
## rent_price_2room_bus_s360_l179                       0.752   0.4523  
## rent_price_1room_bus_s180_l98                        0.412   0.6802  
## rent_price_3room_eco_s360_l179                       0.622   0.5341  
## rent_price_2room_eco_s360_l62                       -1.294   0.1958  
## rent_price_1room_eco_s360_l123                      -2.092   0.0365 *
## load_of_teachers_preschool_per_teacher_s360_l149    -0.445   0.6561  
## child_on_acc_pre_school_s360_l6                     -0.786   0.4319  
## load_of_teachers_school_per_teacher_s90_l0              NA       NA  
## students_state_oneshift_s360_l20                    -0.378   0.7057  
## provision_doctors_s360_l44                          -0.019   0.9850  
## provision_nurse_s90_l0                                  NA       NA  
## load_on_doctors_s90_l0                              -0.159   0.8738  
## power_clinics_s180_l269                                 NA       NA  
## hospital_beds_available_per_cap_s180_l269               NA       NA  
## hospital_bed_occupancy_per_year_s180_l269           -0.042   0.9667  
## turnover_catering_per_cap_s180_l269                     NA       NA  
## theaters_viewers_per_1000_cap_s360_l156              0.712   0.4767  
## seats_theather_rfmin_per_100000_cap_s90_l0              NA       NA  
## museum_visitis_per_100_cap_s360_l158                 0.607   0.5438  
## bandwidth_sports_s180_l269                              NA       NA  
## population_reg_sports_share_s180_l244               -0.632   0.5275  
## students_reg_sports_share_s360_l158                 -0.644   0.5198  
## apartment_build_s360_l168                            0.951   0.3419  
## apartment_fund_sqm_s90_l0                           -0.755   0.4502  
## mortgage_value_s360_l59                             -0.525   0.5993  
## mortgage_value_montonic_s30_l70                     -0.039   0.9688  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1068 on 2285 degrees of freedom
## Multiple R-squared:  0.1735, Adjusted R-squared:  0.1475 
## F-statistic: 6.664 on 72 and 2285 DF,  p-value: < 2.2e-16
cf <- summary(m_dynamic)$coefficients
data_dynamic2 <- just_cols(data_dynamic, c('y_error', setdiff(row.names(cf[cf[,4]<0.10,]), '(Intercept)')))
m_dynamic2 <- lm(y_error ~ ., data=data_dynamic2)
print(summary(m_dynamic2))
## 
## Call:
## lm(formula = y_error ~ ., data = data_dynamic2)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.90921 -0.05963  0.00667  0.06180  0.98073 
## 
## Coefficients:
##                                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                      3.4061733  0.4511615   7.550 6.20e-14 ***
## cpi_s30_l266                    -0.0012536  0.0007287  -1.720   0.0855 .  
## rent_price_4.room_bus_s180_l125 -0.0005253  0.0008553  -0.614   0.5392    
## rent_price_3room_bus_s180_l0     0.0037578  0.0016205   2.319   0.0205 *  
## rent_price_1room_eco_s360_l123  -0.0959071  0.0195158  -4.914 9.52e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1073 on 2353 degrees of freedom
## Multiple R-squared:  0.1399, Adjusted R-squared:  0.1384 
## F-statistic: 95.69 on 4 and 2353 DF,  p-value: < 2.2e-16
cf2 <- summary(m_dynamic2)$coefficients
data_dynamic3 <- just_cols(data_dynamic2, c('y_error', setdiff(row.names(cf2[cf2[,4]<0.10,]), '(Intercept)')))
m_dynamic3 <- lm(y_error ~ ., data=data_dynamic3)
print(summary(m_dynamic3))
## 
## Call:
## lm(formula = y_error ~ ., data = data_dynamic3)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.90864 -0.05980  0.00673  0.06211  0.98584 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     3.4364238  0.4484053   7.664 2.62e-14 ***
## cpi_s30_l266                   -0.0015256  0.0005785  -2.637  0.00842 ** 
## rent_price_3room_bus_s180_l0    0.0031893  0.0013300   2.398  0.01656 *  
## rent_price_1room_eco_s360_l123 -0.0944205  0.0193625  -4.876 1.15e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.1073 on 2354 degrees of freedom
## Multiple R-squared:  0.1398, Adjusted R-squared:  0.1387 
## F-statistic: 127.5 on 3 and 2354 DF,  p-value: < 2.2e-16
y_error_pred_lm <- predict(m_dynamic3, data=data_dynamic3)
y_date_id$y_best_est_lm <- y_pred - y_error_pred_lm

save(data_dynamic, data_dynamic2, data_dynamic3, m_dynamic, m_dynamic2, m_dynamic3, y_date_id, file='Lag_Smooth_dynamic_lm.Rdata')

Fit XGBoost model using lagged data to residuals

x_dynamic <- model.matrix(~., data=sans_cols(macro_best_sl, c(predict_col, 'y_error', 'id')))
y_dynamic <- just_col(macro_best_sl, 'y_error')


xgb_model_dynamic <- caret::train(
    x=x_dynamic,
    y=y_dynamic,
    method='xgbTree',
    metric="RMSE",
    trControl=ctrl,
    tuneGrid=grid)
y_error_pred <- predict(xgb_model_dynamic, x_dynamic)
y_date_id$y_best_est_xgb <- y_pred - y_error_pred

qplot(y_error_pred,y_date_id$y_error, alpha=I(0.1))

save(x_dynamic, y_dynamic, xgb_model_dynamic, y_date_id, file='Lag_Smooth_dynamic_xgb.Rdata')

fi <- xgb.importance(feature_names=colnames(x_dynamic), model=xgb_model_dynamic$finalModel)
fi <- fi[!is.na(fi$Feature),]
fi_nrow <- nrow(fi)

print(fi[1:min(fi_nrow,50),])
##                                                Feature       Gain
##  1:                                          timestamp 0.23807331
##  2:                              micex_cbi_tr_s30_l342 0.13810162
##  3:                          mortgage_growth_s360_l179 0.13745633
##  4:                          deposits_growth_s180_l150 0.11797396
##  5:                                  gdp_quart_s180_l8 0.08340974
##  6:                    rent_price_4.room_bus_s180_l125 0.05978768
##  7:                               micex_rgbi_tr_s60_l0 0.05677410
##  8: average_provision_of_build_contract_moscow_s360_l0 0.04774835
##  9:                          gdp_quart_growth_s360_l58 0.04015479
## 10:                                labor_force_s360_l7 0.02736752
## 11:                       rent_price_3room_bus_s180_l0 0.02662248
## 12:                      rent_price_1room_bus_s180_l98 0.02653011
##          Cover  Frequence
##  1: 0.20814394 0.20689655
##  2: 0.10330743 0.10344828
##  3: 0.13843447 0.13793103
##  4: 0.13765945 0.13793103
##  5: 0.10253241 0.10344828
##  6: 0.06908108 0.06896552
##  7: 0.06838985 0.06896552
##  8: 0.03443581 0.03448276
##  9: 0.03475001 0.03448276
## 10: 0.03447770 0.03448276
## 11: 0.03504325 0.03448276
## 12: 0.03374458 0.03448276
xgb.plot.importance(fi[1:min(fi_nrow,20),])